POOL Program Number I&-151 



TITLE : Output Format Control Subroutine 

AUTHOR ; John A. Donohoe 

Gilfillan Brothers, Inc. 

1815 Venice Blvd. 

Los Angeles 6, California 

DATE : November 18, 1959 

CLASSIFICATION: Kk 



ABSTRACT : Controls the number of lines of computer output 
per page, and effects a standard border at the 
top and bottom of each page, by performing and 
counting all the carriage returns in a program. 
Instructions are given for use with 2l*.0 and 
2^.1. 



DISCLAIMER : 

"The authors of this program material, the POOL 
organization, and Royal McBee believe this program 
to he correct; however, they bear no responsibility, 
financial or otherwise, for errors resulting from 
its use. This program is distributed only to individual 
and installation members of POOL. Further distribution 
of this manual and accompanying tapes for use by 
non-members is prohibited." 
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DESCRIPTION: 



If every carriage return instruction pair xpl600'xz0000' in a 
program is replaced by the calling sequence r(Lo+0052)'u(Lo+0032)' 
of this subroutine, the carriage returns will be counted as well 
as executed by the subroutine. When the right number of lines to 
fill the body of one page have been printed, extra carriage returns 
will be executed to move the continuous form in the typewriter to 
the next page with a suitable border between. 

Obviously the automatic carriage return feature of the typewriter 
can't be used with this program, since automatic carriage returns 
can't be counted. 



Initializing entry ; This routine is initialized by the use of the 
two consecutive instructions 

R (Lo + 0052) 

U (Lo + OOkh). 

It is recommended that this instruction pair be placed at the very 
beginning of a program. The initializing entry does not effect a 
carriage return. 



Normal entry : In the body of the program, wherever a carriage 
return is desired the two consecutive instructions 



R 
U 



(Lo + 
(Lo + 



0052) 
0032) 



should be used. 



Use with 2^.0 Floating Point: 



To have 2^.0 interpret xtOOOO as a "controlled" carriage return 
command, make the following changes: 



Location 


Old Contents 


New Contents 


075^ 


T 0829 


T 0828 


0828 


(blank) 


R (Lo + 0052) 


0829 


B 0^58 


U (Lo + 0032) 


0830 


T 0020 


U 0020 
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Use vith 2^.1 Floating Point: 



To have 2 1 +.l interpret xtOOOO as a "controlled" carriage return 
command, make the following changes: 

Location Old Contents New Contents 
012b T 0257 T 1759 

1759 (blank) R (Lo + OO52) 

1760 (blank) U (Lo + 0032) 

1761 (blank) U 0535 

Note : 

The initializing entry r(Lo+0052)'u(Lo+00'44) 1 must be made in 
fixed point, not interpreted by the floating point routine to be 
used. 



Storage : The program has been written to occupy the last half of 
any track. Program Lo referred to above does not mean the initial 
location of the program but rather the Set Modifier. The program 
is stored beginning at (Lo + 0032). 



Time : The program has been optimized so that carriage return execution 
time remains comparatively unchanged. 



Tape Description : The tape supplied by POOL is arranged: 

Title, POOL number, date, 8 spaces, tape feed, coding, "; 0006300' 
.0000000'", tape feed, sample program. 
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OPERATING INSTRUCTIONS: 

(1) Store the subroutine in the second half of a track, Lo. 

(2) Determine the total number of lines it is possible to print 
on a page using customary spacing. 

(3) Determine the number of lines to be printed on each page 
during output, and load this number, at q=29, in (Lo + 0060). 

(k) Subtract the number found in (3) from the total number of lines 
in (2), and load the difference, at q=29, in (Lo + OO36). 

Example: Suppose it is possible to print 66 lines 
of output per page of continuous form and it is 
desired to print out 50 lines of output per page. 
Then: load (Lo + 0060) with xz0050 and 
load (Lo + OO36) with xz00l6. 

The program tape supplied contains these constants. 

(5) Store the programs which use the subroutine. They should start 
with the initialization calling sequence r(Lo+0052)'u(Lo+00y4-)' 
and have r(Lo+0052) 'u(Lo+0032) * each place a carriage 
return is desired. 

(6) Adjust the paper. In the example given, to obtain an upper 
border of 10 lines and a lower border of 6, position the 
form to start printing on line 11. 

(7) Start the program. 

Note: If most work at a particular installation is on the same 
size form, the appropriate constants can be calculated and inserted 
in the program tape in place of xz0050 and xz00l6 for once and 
for all. 

SAMPLE PROGRAM: 

A sample program is supplied for illustration and testing, which simply 
prints one "x" on each line. It is written for subroutine Lo = 6200 
(that is, for the subroutine loaded using ; 0006232 ' /0006200 ' ) and 
fills into the first seven sectors of that track. 

The printout of the sample program tape follows: 

SAMPLE PROGRAM FOR lA-151 
; 0006200' 



xr6252'xu62ij4' initializing 

xp3900 , xzOOOO l print "x" 

xr6252'xu6232' controlled carriage return 

xu6202' repeat "x" 

.0006200' 
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ocaa.: 




terei 



pool- .,, ,_. 



0032 



mcxrrZ 



0033 






CXXi7 



h/o 



O03? " 






Yes 






OG39 



Cou*/TtJ2 ~Z, 



OOH3 



OOM: 
(Ann At &JT#Y 



re&T 



do 



00W \ f 



iKjiriAtrze 
covmtc£s 



OOS3- 



€KlT 



BLoc< J>tA4£**f- Output fo**f*T CavrAo*- Su3&>oT/A/e 
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Progrea Input 



Pro*. Ho. Iff -If! ProftrttTtnar ^T. A-'DanoAoe- D*ta II- it -Si 

UTVOT f0&Al/)T CO//T&OL. £c>£ftOUTAV£~ Track £, 



.i.flflgf 



Z 



/-e?+jv 



0.0 



K^f' 



to 



Location 



a 



Instruction 
O p, Addrasa 



3^2 



jlSj aj ! 



rt ao^rt 



Contenta of 
Addraaa 



Notea 



Ab£MAL e//T/?Y 



lil 



Ut 



cr/e / 



AiQ^hkA 



4 



& >1 



U. 



IA 



T 



CT& I 



X Z.O.Oi 6j 

■ i 1 ' ' wA 



lil 



7T\QQ^ 



e& M&L^ ^ /&hM. 4 -hfLAY 



CTZ I <D 



XJOu 



111 



ZlxLk&A 



J&L 



3.9 



J?|C>, ft<rf >,/ 



Kszg. 



V 



k^ 



A aOlQ i £ C 



i erf 



i*.i 



tif.O^J 



CT/Z7U 



kJ. 



XitiQ.Qi T r J 



Dg^/ 



Jul 



.r.Qfis.g 



crty^Co 



hA 



&iQ&£fL 



3 



y^ 



a/O; /AJtT/At- 



kJ. 



■5,0.0, fc.o 



EHT&Y 



U.6 



iUtQ.q 47 






h: 



kd 



1*,8 



.(^ ag.STP 



XahI'/AUW COUNTtei 



L_2 



5.0 



,Slflfl3,fe 



£J, 



. C . flfl* . / 



iii 



iL^iL l i la 



J 



l*i 



4- 



j i i_ 



j i i_ 



X >< e>f 



IA 



/fcAQ xQxl 



£J> 



IlI 



_l 1 u 



2j_ 



£j_?_ 



6,0 



\ 



4- 



j i i_ 



Te*l P- 



1 l__i Ltd — 



LlMZTZ>/p4t7^ 



6.1 



6jl2 



I 



-M- 



4- 



1 



cr/Z £- 



n 



are / 



6.3 



jL&q&QJ. 



/g>9 
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